home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 24
/
Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso
/
Aminet
/
biz
/
dopus
/
PlayHIP.lha
/
PlayHIP
/
arexx
/
Format.dopus5
next >
Wrap
Text File
|
1997-08-05
|
2KB
|
73 lines
/*MFS formater for Directory Opus 5.
By Sampo Kytömäki (Rib/SuLPu)
Email: sam@compost.fipnet.fi
$VER: Format.dopus5 0.01 (04.08.97)
Format module of DOpus 5.6 Doesn't support MFS ??!!!
So here is a Lame format script for DOpus
Someone please do better one....
Requires:
MFS patched version of format command and DOpus 5.?
Tested whit DOpus 5.6 and MFS 2.1
To Do: (Up to you, cos i can't do none of these)
Progress indigator
Read Dostypes from file comments
Other big and small fixes
Make it Replacement of format module
Convert it to C
Nothing of these have to be do if format module begins to support MFS!!!
So send mail to Jonathan Potter & GBSoftware
History:
0.01 04-08-1997
test
*/
options results
lf='0a'x
source ='df0:'
name='Empty'
ADDRESS DOPUS.1
main:
dopus request '"Format disk in drive 'source'" _Amiga|_MS-DOS|AFS|AFS+_Diskspare|_Floppy|_Cancel'
if rc = 1 then signal formatdos
if rc = 2 then dostype = "MS-DOS"
if rc = 3 then dostype = "AFS"
if rc = 4 then dostype = "AFS+Diskspare"
if rc = 5 then dostype = "Floppy"
if rc = 0 then exit
signal format
exit
format:
dopus getstring '"Please enter disk name" 256 'name' OK|Cancel'
if dopusrc = 0 then exit
name=result
ADDRESS COMMAND 'Format DRIVE 'source' NAME 'name' NOICONS FS 'dostype''
exit
formatdos:
dopus getstring '"Please enter disk name" 256 'name' OK|Cancel'
if dopusrc = 0 then exit
name=result
ADDRESS COMMAND 'Format DRIVE 'source' NAME 'name' FFS NOICONS'
exit
exit:
exit
/* not used
nodisk:
dopus request '"Please insert disk in drive "'source'_OK|_Cancel'
exit
*/